home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Examples / Fitting / Decay.function < prev    next >
Text File  |  1994-08-16  |  264b  |  12 lines
  1. { this is an example for a small function }
  2.  
  3. definition decay;
  4.  
  5. defaults        { default values for parameters, optional. }
  6.   a[1] := 1,active;  { active means: it can be fitted }
  7.   a[2] := 1,active;
  8.   a[3] := 1,active;
  9.  
  10. begin
  11.   y := exp(-x/a[1])*cos(x*a[2])*a[3];
  12. end;